Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/msgbox/msgedit.frm

Text File | 1995-05-08 | 9KB | 284 lines

VERSION 2.00
Begin Form MsgEdit
   BorderStyle     =   3  'Fixed Double
   Caption         =   "MsgBox Editor"
   ClientHeight    =   4155
   ClientLeft      =   1605
   ClientTop       =   1965
   ClientWidth     =   5550
   ForeColor       =   &H00000000&
   Height          =   4845
   Left            =   1545
   LinkMode        =   1  'Source
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4155
   ScaleWidth      =   5550
   Top             =   1335
   Width           =   5670
   Begin CommandButton Finished
      Caption         =   "&Finished!"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   1920
      TabIndex        =   6
      Top             =   3480
      Width           =   1815
   End
   Begin CommandButton MessageClear
      Caption         =   "Clear"
      Height          =   495
      Left            =   4680
      TabIndex        =   5
      Top             =   2640
      Width           =   615
   End
   Begin CommandButton MessageOK
      Caption         =   "OK"
      Height          =   495
      Left            =   4680
      TabIndex        =   4
      Top             =   2040
      Width           =   615
   End
   Begin TextBox MessageEdit
      Height          =   855
      Left            =   240
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   2040
      Width           =   4215
   End
   Begin CommandButton TitleClear
      Caption         =   "Clear"
      Height          =   495
      Left            =   4680
      TabIndex        =   2
      Top             =   1200
      Width           =   615
   End
   Begin CommandButton TitleOK
      Caption         =   "OK"
      Height          =   495
      Left            =   4680
      TabIndex        =   1
      Top             =   600
      Width           =   615
   End
   Begin TextBox TitleEdit
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   600
      Width           =   4215
   End
   Begin Label Label3
      Caption         =   "Use Return to start new line, and Control-Return (or click on OK) to accept text."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Index           =   1
      Left            =   240
      TabIndex        =   10
      Top             =   3000
      Width           =   4215
   End
   Begin Label Label1
      Caption         =   "Enter MsgBox &Message Here:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   375
      Left            =   360
      TabIndex        =   7
      Top             =   1560
      Width           =   3855
   End
   Begin Label Label3
      Caption         =   "Use Control-Return (or click on OK) to accept text."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   255
      Index           =   0
      Left            =   240
      TabIndex        =   9
      Top             =   1080
      Width           =   4215
   End
   Begin Label Label2
      Caption         =   "Enter MsgBox &Title Here:"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   12
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   375
      Left            =   360
      TabIndex        =   8
      Top             =   120
      Width           =   4095
   End
   Begin Menu Hints
      Caption         =   "&Hints"
      Begin Menu TitleMsg
         Caption         =   "&Title..."
      End
      Begin Menu MsgMsg
         Caption         =   "&Message..."
      End
      Begin Menu EditMsg
         Caption         =   "&Editing..."
      End
      Begin Menu sep
         Caption         =   "-"
      End
      Begin Menu AboutMsg
         Caption         =   "&About..."
      End
   End
End

Sub AboutMsg_Click ()
    MBAbout.Show
End Sub

Function CheckString (TheText As String, TheType As Integer)
    CheckString = True
    StrMsg$ = "VB will will truncate this long word at the 255th character.  Try again!"
    LenMsg$ = "VB will only allow 1,024 characters in a message box.  Try again!"
    WordText$ = TheText
    While InStr(WordText$, Chr$(32)) > 0
    If InStr(WordText$, Chr$(32)) > 255 Then
        MsgBox StrMsg$, 16, "String Error"
        CheckString = False
    End If
    WordText$ = Mid$(WordText$, InStr(WordText$, Chr$(32)) + 1)
    Wend
    If Len(TheText) > 1024 And TheType = MSG Then
    MsgBox LenMsg$, 16, "String Error"
    CheckString = False
    End If
End Function

Sub EditMsg_Click ()
    CR$ = Chr$(13) + Chr$(10)
    Q$ = Chr$(34)
    TheMessage$ = "Instructions for editing are placed below the edit boxes.  You may embed carriage returns"
    TheMessage$ = TheMessage$ + " in the Message section by pressing Return.  You can accept the text by pressing Control-Return in either the Title or"
    TheMessage$ = TheMessage$ + " the Message Box. You may also use a mouse to click on the OK buttons and the Finished button."
    TheStyle = 0
    TheTitle$ = "Editing"
    MsgBox TheMessage, TheStyle, TheTitle
End Sub

Sub Finished_Click ()
    If Len(RawMessage) > 0 Then
    MsgEdit.Hide
    MsgBxGen.Show
    MsgBxGen.CopyCtl.SetFocus
    Else
    AnAnswer = MsgBox("What good's a message box without a message?", 37, "String Error")
    If AnAnser = RETRY Then
        Exit Sub
    Else
        End
    End If
    End If
End Sub

Sub MessageClear_Click ()
    MessageEdit.Text = ""
End Sub

Sub MessageEdit_KeyUp (KeyCode As Integer, Shift As Integer)
    CtrlDown% = (Shift And CTRL_MASK) > 0
    If KeyCode = KEY_RETURN Then    ' Display key combinations.
    If CtrlDown% Then
        StringState = CheckString((MessageEdit.Text), MSG)
        If StringState <> False Then
        RawMessage = Left$(MessageEdit.Text, Len(MessageEdit.Text) - 2)
        End If
        If Len(RawMessage) > 0 Then
        Finished.SetFocus
        Else
        AnAnswer = MsgBox("What good's a message box without a message?", 37, "String Error")
        If AnAnser = RETRY Then
            Exit Sub
        Else
            End
        End If
        End If
    End If
    End If

End Sub

Sub MessageOK_Click ()
    StringState = CheckString((MessageEdit.Text), MSG)
    If StringState <> False Then
    RawMessage = MessageEdit.Text
    End If
    Finished.SetFocus
End Sub

Sub MsgMsg_Click ()
    CR$ = Chr$(13) + Chr$(10)
    Q$ = Chr$(34)
    TheMessage$ = "The message box function/procedure will only accept messages 1,024 characters"
    TheMessage$ = TheMessage$ + " long.  Longer messages will be truncated at the 1,024th character.  Words (any series of characters without intervening spaces) will be truncated at the 255th character."
    TheStyle = 0
    TheTitle$ = "The Message"
    MsgBox TheMessage, TheStyle, TheTitle
End Sub

Sub TitleClear_Click ()
    TitleEdit.Text = ""
End Sub

Sub TitleEdit_KeyUp (KeyCode As Integer, Shift As Integer)
    CtrlDown% = (Shift And CTRL_MASK) > 0
    If KeyCode = KEY_RETURN Then    ' Display key combinations.
    If CtrlDown% Then
        TheTitle = TitleEdit.Text
        MessageEdit.SetFocus
    End If
    End If
End Sub